home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 33 / Amiga Format AFCD33 (Issue 117, Dec 1998).iso / +system+ / +afcd_setup+ next >
AmigaDOS Script File  |  1998-09-07  |  2KB  |  99 lines
  1. .key DUMMY
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: +AFCD_Setup+ 2.7 (16.06.98)
  6. ; by Oliver Roberts
  7. ; edited by Errol 9.2.98
  8. ; further edited by Ben Vost 02.03.98
  9. ; even more editing by Errol 03.03.98
  10. ; yet more editing by Ben Vost 28.04.98
  11. : belive it or not, more editing by Errol! ;-) 16.06.98
  12. ;;
  13. ; Amiga Format CD Setup Script
  14.  
  15. ;***********
  16. ; CD number
  17. ;
  18. Set cdnum 33
  19.  
  20. ;*************************
  21. ; Useful global variables
  22. ;
  23. Set reqtitle "*"Amiga Format CD$cdnum*""
  24.  
  25. ;******
  26. ; Init
  27. ;
  28. FailAt 21
  29. Resident >NIL: :C/RequestChoice FORCE
  30.  
  31. ;*************************
  32. ; Check if booted from CD
  33. ;
  34. If exists env:Choices_Run
  35.    RequestChoice >NIL: $reqtitle "You don't need to run this script if you have*nbooted from the CD" OK
  36.    Skip END
  37. EndIf
  38.  
  39. ;***************************************************************************
  40. ; Check to see if this script has already been run and remove assigns if so
  41. ;
  42. If exists ENV:AFCD_Assigns
  43.    Set choice `RequestChoice $reqtitle "Removing the assigns to Amiga Format CD$cdnum" OK Cancel`
  44.    If $choice EQ 1
  45.       Delete >NIL: ENV:AFCD_Assigns
  46.       Assign C:       CD:C remove
  47.       Assign S:       CD:S remove
  48.       Assign Libs:    CD:Libs remove
  49.       Assign Fonts:   CD:Fonts remove
  50.       Path CD:C remove
  51.       Assign CD: AFCD$cdnum: remove
  52.    EndIf
  53.    Skip END
  54. Endif
  55.  
  56. ;*************************
  57. ; Setup assigns and paths
  58. ;
  59.  
  60. ; Echo "Now setting up assigns for the Amiga Format CD$cdnum..."
  61.  
  62. SetENV AFCD_Assigns Yes!
  63. Assign CD: AFCD$cdnum: add
  64.  
  65. CD:c/AFCDView CD:+System+/Info/disclaimer.iff >nil:
  66.  
  67. Assign C:       CD:C add
  68. Assign S:       CD:S add
  69. Assign Libs:    CD:Libs add
  70. Assign Fonts:   CD:Fonts add
  71. Path CD:C add
  72.  
  73. ; Check AFCDPrefs settings and startup chosen programs
  74. Resident >NIL: CD:C/CheckAFCDPrefs PURE
  75.  
  76. CheckAFCDPrefs
  77. If ERROR
  78.    Set choice `RequestChoice $reqtitle "Would you like to run the AFCD preferences program?*n*nThis will allow you to preset your choices for this*nscript and your preferred file viewers." Yes No`
  79.    If $choice EQ 1
  80.       CD:+System+/Prefs/AFCDPrefs
  81.    EndIf
  82. EndIf
  83.  
  84. Set choice `RequestChoice $reqtitle "Would you like our font prefs run?*n*nThis will ensure that snapshotted icons look right*nand won't affect your permanent Workbench settings." Yes No`
  85. If $choice EQ 1
  86.    sys:prefs/Font use CD:Prefs/Env-Archive/sys/Font.Prefs
  87. EndIf
  88.  
  89. Resident >NIL: CheckAFCDPrefs REMOVE
  90.  
  91. EndIf
  92.  
  93. ;******
  94. ; Exit
  95. ;
  96. lab END
  97.  
  98. Resident >NIL: RequestChoice REMOVE
  99.